home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / NewDoor < prev    next >
Text File  |  1997-04-05  |  1KB  |  23 lines
  1. /**************************************************************************\
  2.     $VER: , v. (--97) by SysOp of BBS!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . ", "ver" ("vdate")" .;a=random(,,time("s"))
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
  8. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  9.  
  10.  
  11.  
  12. exit
  13. CHECK:;if ARG() & ARG(1)~="###PANIC" then return ARG(1)
  14.   getcarrier;if result="TRUE" then if ARG() then return ARG(1);else return
  15.   logentry "Lost Carrier!!";bufferflush;exit
  16. SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  17.   e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  18.   logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  19.   do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  20.   bufferflush
  21. /**************************************************************************\
  22. \*********************************************** Your BBS (AAA)/PPP-SSSS **/
  23.